AR„c for the Brchive 1/4" TAPE- certr i ckje drive-;- 

« for use with the Archive s-mBrt controller end AFlD95/3310 
*> psrsllel interface to the fnultibusa 

« Written for Forward Technolocjy 

■» July 17, 1982 

^ Bruce fJorden 

*> I hope it's modified by chese b» 

■s July 21, 1982 

5 / 

/» first pess 7/11/B2 chBse b. s/ 

/^^ chase bu 7/11/82 s/ 

/« AR.C for the Brchive tepe drive »i/ 

/s BB started on it 7/17/82 «/ 

/V: 7/19/82 Bdded EiCT^SEiiLECT ^/ 

/•5r 7/19/82 removed Brwt(R'i:-r.ADY> from the start of ar....comm8nd «•/ 
/•K for power up ressons chese b« «/ 

/•K 7/19/82 chancjed aropen and arwrite to test for more inline code «/ 
/w 7/20/82 rewrote open write end reBd and added some for error «/ 
/« need to add check at first for not a drive selected «/ 
/s need to time out in srwt and srwtn *>/ 

/•» 7/22/82 added timeout to almost all of the while routines with *>/ 

error notification to all callincj routines? chase •»/ 
/«• removed need for r„init ???? dont know if it helped, I will just 
*; reset everytime- 

■s made rec) 800008 in 2 instances for arrd and srwrt -• had timed out 
•s twice» 

« removed some of the timeouts and also remade calls to arwt and arwtn 



« found ERROR in our code with error types corrected 7/24/82 
» Bullet proofed on 7/27/82 end will release slow stendslone 
«/ 



# i nclude 

# i nc lude 

# i nclude 

# t nc lude 

# i nclude 
i nc lude 



" „ „/l'v/p»rs:m»h" 
"„ „/h/buf 
"„ „/in/dir.in" 
"„ ../h/conf „h" 
"„ ./h/fi le.h" 
" .. >,/l'i/user „h" 



struct -C 

uniT!. i c}ned char 

unsii^ned char 

s-hort 

sl'iort 
> srstat ? 



erstSS /« first lr.»yte of status •»/ 

arst:!. ? /*> second tayte of status •»/ 

arrt? /« retry count »/ 

arur? /« ui'idei^run count •»/ 



/»; The followintj h/w addresses are for the amd 331§ i/f board 
and are byte twisted for the multibus ■»/ 



# define ARFAD B>iQd 

#def 1 ne ARF'Bi:) 0x8c 

Mdefine ARF'CD 8x8f 

#define AR1="DD 0x8e 



/« Date address to port A «/ 

/*;• Hsndshakincj port from archive port 13 •»/ 

/w Handshat; i ncj port to archive port C *>/ 

Command port to the 8255 for port A out or in «■/ 



/s Commands for the Af^CWD ■»/ 



^define AINCMD &>i92 turns the 8255 port A for data in «•/ 



*^)d«ijf »n.=! AOUTCFID B>iB2 
^define CHAIN 



/i* turns th^a 8255 port A far dais out «/ 
/» sitjnals the Istch input for dste in w/ 
st(3n3,ls the Istch input for dats out •»/ 



/•s Inputs from ARPBD •»/ 

Mdefine ACK 1 /« Acknowledcje sicjnasl from ti'^e Archive •»/ 

Mdefine READY 2 /s Rn'sdy sicjnal from the Archive •»/ 

Mdefine EXCE-PTIOW 4 Exception sicjnBl from the Archive »/ 

^define IDIRC 8 /•» I^IRC sirjnasl from the Archive »/ 

/« Commejnds for the ARchive vie ARPCD «/ 

make sure that you and or or with CDATAIN or CDATAOUr «/ 



JJdefine T ONLINE 3. 

#define fREQ 2 

define TRESEI 4 

#define TXI-ER 8 



/•K Online sicjnasl to the ARChive «/ 
Request sigjnel to the ARchive 

/« Reset signal to the ARchive •»/ 
Transfer sicjnal to the ARchive *>/ 



/K Commands for the ARchive unit via ARADDR (port A) */ 



^define TREAD 0x80 
Mdefine TWRITE 0x48 
^define TERASE 0x22 
51 define TRET EN 0x24 
#define TRSTAT 0xc0 
{^define T SELECT 0xli 



/■>;• definition of ARST byte •»/ 



#define AN07IN 0x48 



/» no tape inserted 



m^iflm-i ANOTSLf 0x20 
^define AWF^PROT 0K.1.0 
#daf i ne AENDTRK 0x88 
{^define AUNEiiRR 0x04 
#d.af i n>H! AFLMRK 0x0.1 



unit not selected 
/« Write protected ^/ 

End of Tape Trsck */ 

/« Unrecoversble EError 
/•>: File mark encountered »/ 



/w definition of ARS7 byte 1 »/ 



■tJdefine AXLI-CFli:) 0x40 
tJdefine AiMOE)ATA 0x26 
^Jdefine ASRETRY 0x10 
#define ABEGIN 0x08 



/•s Iller^i-jl commsnd •»/ 

/s No dcjta Found 

/K 8 or more retries <I?.AD TAIL'S) 

/« BOT «/ 



cl'isr 3r._fl3<js? 
cl'icjr ar bufE:512::i J 



/■>;■ flscjs «/ 

/« Temp rd/wrt buffer for I/O 



/•K Definition of I-I..AG !?.:I:T<3 *>/ 

Mdefine 'f.OPEN 1 /•» Unit l-ias been opened snd reset *>/ 

^define T INIT 2 /*> Unit has been in i ted «•/ 



Br..cDmfnsnd( ) commands «/ 

^define CGETSTS 1 Resd Arcl^ive status into srstat «/ 

•^define COFf'LINE 2 Take unit offline »/ 

/» Mdefine CREAE) 3 ^/ Condition unit for read in c{ 

/» Mdefine CWR-'ETE 4 Condition unit for writincj 

Mdefine CERASE 5 /« Erase tape <tbd) «/ 

#define CTENBION 6 Tension tape <tbd> •>:•/ 

JJdefine CFiESET 7 Reset ti-ie drive «/ 

^define CSEL.ECT 8 /*> select tl'ie drive •»/ 



AF^GSUSED 
a r o p a n i cJ & v ? F 1. 3 g > 
dev...t dev? 
ii'it, fletp 



i f < Br. .flecjs & T..OPE'N) < 

UuU...::!rror ENXXO? 
return? 

}• 

refiioved reference to T.,.1'N3:T ^/ 
ar_s- omfrt3nd < CRESE f > ? 

sr„commend<CGE1STS)J Get the initial statu 

3r..corrtmsnd(CSELECT) ? select the drive *>/ 

if <sr5tBt»Br&t0 § ANOTIN) < 

pr i ntf ( "No tispe i n Arch i ve dr i ve\n" ) ? 
ENXIO? 

return ? 

> else if<fl3cj (arstst.erst© «< AWRF='ROT)) < 

printf<" Archive Tape is WRITE PROTECTEDXn" ) ? 
u»u.,.,error ENXIO? 
return J 

> 

if<flSCj =«=-^' 0) 

jsrrdset < ) / 

e I s e 

arwrset < ) » 
if (u.u,_error ="•" 0) 

ar....flecjs === T..OPEN? s^'t flacj «/ 



3- 



/ s CI o s e r o u t i n e « / 

/* On the Archive? droppintt ONLINE will Butomet i cbI ly write b FileFiBrk 
•» (if the tape is beincj written) end rewind the tape.. 
^ /' 

/w ARGSUSEfi) w/ /» 'fell LINT I know I'm ignorincj my arcjs •»/ 

3 1" c I OS e < d e v ■/ f 1 as <;) ) 

dev...t dev? 

int flsfjJ 

•C 

outb<Af-i;F-'DC>. AOUTCMD)? recondition the 8255 «/ 

3r..command(C0FI"LINE> J Take offline (may be NOP) */ 

er./fliscjs 0y clear t..open flag s/ 



^define WT20U& for<WBit ~ 50? 



3 r c o m m a in d < c: m d > 



recji ster recj? 

recjister weit; edded for CSELEr.CT w/ 

niijij i ster struct buf Ksr? '*/ 
recj i st'sr si? 



<5wi ■tc:h<cmd) -C 

cBse Cf^ESET? /•» Must be followed by e CGETS7S!! «/ 

outb(ARr-'DD. AOUrCMD)? /« Condition 8255 for output «/ 
outb<ARPCDx CHAOUir)? /« Condition Istch ^s/ 
outfo<A|:«F'CD. TRESEr>? /» Do the reset «/ 
bresi'.? 

case CSELECT? 

i5rwt(F?EADYIEXCEPT]:0N. "CSELECTl. " > ? WBit for resdy 
outb<ARI""'ADy fSELECT) S /* put the select command on bus •»/ 
outb<ARPCD, IREGHCHAOUT) J /s put out request »/ 
Wr20Us? wait to assure that l-ie saw it •»/ 

srwtC READY I EXCEPTION, "CSELECT2" ) ? /« wait for ready 
outb(ARPCD/ CHAOUT)? Z^* remove req'iest •»/ 
brecjk J 
case CGETST9? 

if<Brstin<)) C-Jet 6 bytes of status in »/ 

rettirn ? 

break » < 
case COF-FLINEs 

outb<ARPCDy CHAOUT)? Clear ONLINE (if it was) »/ 



break ? 

esse CTENSIOH? 

J /^^ TBD »/ 

}• 

}• 



/« Copy <f> bytes of ststus in from Archiv<:!! *>/ 

arst i i'ii< > 

■C 

retjister recj? 

recji&ter char scp ~ (char ^O^isrstet? 
recjisber wait? 
recjister si; 

outb<ARPDD, A0U7CME))J /w make sure the 8255 Is for out k/ 
outb<ARPADy TRSTAf)? /•» Send rd status to Port AD '*/ 
outb < Af^PCD . 1 RE« 1 DHAOUT ) J 

i f (arwt(f«EADY!. "srstin") ~-- 0)/s Tells me Afi h«js cofiimsnd «/ 
return .1. ? 

outb<Afi;PDDv AINCMD)? Condition 9255 for input s/ 

outb(ARPCD/ CHAIN)? /•» Condition latch for input (clrs REQUEST>»/ 

if<<st =■ srwt<DIRCiEXCEPT3:0N. "3rstin2")) «==•--• ©) 

rettirn 3. ? 
if <st EXCEfPTIOi^) -C 

arsterr < > ? 

return i? 

}• 

f or < i ='6? i — ? ) ■{ 



if<<sb srwt(F;:EADYIE::XCE:PT10N. " arst i nS" > ) 0) 

return .1. ? 
if<&t & EXCEPTION) •£ 

srsterr < ) ? 

return 1; 

}■ 

«c-.p-<+ inb^ARFAD)? F'etch 3 s-tstus byte 

outbCARPCDy TREQ)? Set Request acjsin «•/ 

/•K- isrwtn < READY ) ? Wsit for redely low »/ 

rerj = 580008? 

while<(st inb(ARf>BD) ) READY) C 
if<st ^6 EXCEPTION) <. 

pr i ntf < " ar&t i n EXCEPT lON'Nn" ) J 

« u ... e r r o r E 10? 
return 1 ? 

3- 

ir< — recj 0)-€ 

printf<" er© not reBdy<srst in4)\n" ) 
u..u,.error ~" EIO? 
return 1? 

}• 

> 

WT20USJ 

outb(ARPCD, ©)? /» Cleer Request «/ 

}• 

outb<ARPDD:r AOUTCMD)? /« Recondition £J25S for output «•/ 
pr i ntf < " ARST==%x s- %>{\n" / arst^t „ arst0 ^ arstat » arst 1 ) ? 
return 8? 



I'- •=! cj i B t e r s t ? r e c] •-• 5 & © © ? 



whi1.e(<<st inb<ARPBD>) S bits) 8) 
if<--ret1 

printf < "TIME-OUT srwt? %B\n"y ms-cp J 
u-u..jn!rror EIO? 
return 0J 

3- 

return st J 



3- 

/« 

erwtn<b i t) 

nacjis-ter st? 



w h i 1 e < < B t i nb < ARPEH) ) ) & b i t ) ? 
return stJ 

}• 



/■» ARGSUSED 
arread (oJev) 
dev_.t dev? 
•C 

w h i I e < u u .... c o u n i ) -C 
i f <3i"rd< > ) 

bresk ? 

i omove<sr..fouf » 

}• 

}■ 

/« set up the srchlve for readinc] 

errdset < ) 

•£ 

recjister recj -•• 200? 

outb<ARPDD. AOUTCmD)? condition the 8255 «/ 

outb(ARPCD. rOHLIME-iilCHAOUT) J /* Set OHLI?^IE »/ 

outb(ARPAr.>, TREAD); /» Commend to A bus> ■»/ 

outb<ARPCD. TONLXNEICHAOUTITREQ) J Set OMLINE&REQUEST 
whi le( inb<ARPBD) & READY) /•» Wait for not reedy «/ 

j .p(™...p,5j{^ 0) breajk? G'tit only for e while •»/ 

Brwt<READYl EXCEPTION. "Brrdsetl " ) J Wait for ready 
outb<AI^PDDv AINCMD)? 

outb<ARPCD. 70NI..INEICHA.TN) ; /«• Clr REQUEST •^•/ 

arwt ( DIRC 1 EXCEPTION , "3rrd«iet2" ) ? 

}• 



/*: While the user wants more »>/ 
/» Read a block •»/ 
/•>: EOF or an error «/ 

Copy the data to the user 
m i n < s i zeof ar „..buf ? u « u...c ount ) ? B„RE AD ) 5 



Resd one 512 bijte. block into ar.,.buf •»/ 
arrd( ) 
•£ 

recj i £t<H!i'- rec}? 

recj i ster st ? 
reel i sier i J 

j s: 5:i.2; /•» FiMed bij the herdwsre! ! «/ 

if<(st ••== 3rwt< READY 1 EXCEPTION, "arrd")) 0) 

return 1 ? 
ifCst « EKCEPriON) { 

ererr < ) J 

return 1 ? 

> 

do -C 

reel :== 200? 

wh i 1 e < < ( i nb < AFiPBD ) ) & ACK ) & ) 

return 1 ? 

•Kcp + t- - inb(ARPAD)? /*> Grab the byte »/ 

outb<ARPCD. TXFERICHAIMrfONLINE) ? /» Set XFER to notify ctlr «/ 
recj 200 J 

wh i 1 e < i nb < ARPEiE) ) S> ACK ) 

if< rerj 0) 

return 1 J 

out b < ARPCD . CH A I N I T ONI... I NE ) ? / C I ear XFER s / 

> whil<2< i ) J /*> And loop for 512 bytes- s/ 

return © ? 

}• 



/•< Write routine «/ 
/« AROSUSED »/ 
Brwr i te< dev ) 
ddiVjl dav? 
•£ 

wi'j i le<L.i.,u_.count ) < While the- user hss more to write -s/ 

/•B Cop« tl'ie dsta: from the user «/ 



i omove ( Br..buf v m i n < s i zeof sr..buF » u » u..c.ount ) > B__yR3: TEi: ) J 
if<arwrt<)> /*> Write the iylock ■»/ 

bresk ? EEOF" or »n error •»/ 



/•s set up the Brchive for writincj s/ 

arwrset ( ) 

•£ 

rec}i!5-ter ret)? 

outb(ARPE)[>. AOUTCfID) ? /« condition the 8255 

outb<ARPCD. TONLIHEICHAOUT)? /» Set ONLINE ■»/ 

outb(ARF'AD;r TWRITE)? /« Command to A bus «/ 

outb<ARPCD, rONLINEICMAOUTITREQ)? /s Set ONl.:[NE<tREQUEST «/ 
recj ==- 200 J 

wh i le< inb<ARPf?.E)) & READY) /■» Wsit for not resdy •»/ 

j ^ (...... Pfjj (J ss:c: Q) foresK y /*> uu„only for b while k/ 

arwt<READYi EXCEPTION, "erwrsetl") 5 

outb(ARI='CD. rONLilNEiCHAOUT)? /» Clr REQUEST *>/ 

recj 20(3? 



whi leC inta<ARF'BD) & REM)Y) /« Wsi t for not i-eBdy •»/ 

jf<- recj --"=» 0) break? /•» „„„only for b while •»/ 

Brwt<F?EADYIEi:XCE-PTION. "3rwrset2" ) J /•» Weit for resdy 



/« yrite one 5.12 byte block from Br...buf to the: tepe «/ 

arwrt( ) 

< 

rett i ster recjS 

recjister char scp === er.,.bufi- 
recjister st? 
re<3 i iiiter i J 

i =" 512? fi>t the number of bytes ^/ 

\f(<st arwt<READYIEXCr£pr:£ON-, "arwrt")) 0) 
return i ? 

if<st & E-XCEPI ION) < Some error i nd i cstecl «/ 

arerr<)/ Handle the error •»/ 

return Is 

}• 

do •€ 

outb(Af;;PAD? «c.p-}"*)? Output one byte s/ 

outb<ARPCD, TXi"ERlCHAOlJTI TONLLNE) Sf /s Set XFER to notify ctlr »/ 
recj === 200? 

wh i I e < < < i nb < ARPE?.D ) ) & ACK ) ==™ ) 

if< re<3 0) 

retui"n 1 ? 

outb(ARPCD, CHAOUTITOMLXHE)? /*> Clear Xi"ER 
reel " 200? 

wh 11 e < < i nb < ARPE?.D ) ) & ACK > 



If< -rec) •"=■•" £3) 

return 3. S 

> whi 1.e<— "i ) ? /<•> And loop for 512 bytes «/ 

return f)? 



grerr < > 
■C 

isr&t i n < ) ? f-Jet the i=/t.stus 

if <ar?itst„<3rst0 & AFLMRK) -C /k f-ile m3rk?? •»/ 

u.,u._error ~ 0? This i& NOT ©n error 

riSiturn? /s Ye«>y normal eot s/ 

}• 

if <arstst»srst0 AENDTRK) •{ /» Knd of tspe?? w/ 
printf<"AR iSOTXn")? 
u » u„err or =- E 1 ? 
retur-i'i ? 

> 

i f (srstst^srste & AUNEFi:R) -C /« UnrecoverBble error?? 

printfC'AR ERR /SjAci". srstist-srsti) 5 
u.u.jsrror ™ El'O? 
returns 

}• 

if <erstBt„3rstj. ^ AILLCMD) C 

pr i ntf < " AR ILLEGAL COfmAND %x\n" . erstat . erst 1 ) ? 

u ,. ti e r r o r E 10? 

return? 

> 

i f (arstst.srsti % ANODATA) C 

printfC'AR MO E)ATA FOUiMD %5:\n". Brstat arstl ) ? 

UuU..error ™ EIO» 

return? 

}• 

i f (arstat.arste ANOTIN) -C 

pi" i ntf < "No tape i n Arch i ve dr i ve\n" > ? 



returi'i ? 



/•♦• Routine to print error in Brstin<) 



Brsterr < ) 



if <BrstBt„erBt0 & AENDTRK) < /s End of tspe?? 
printf<"AR EOT\n")? 
u o u „ e r r o r =~ E: 1 ? 
return? 

5- 

i f <ejrstst.erst0 & AUHEiiRR) < Unnscoversble error?? k/ 

printfC'AR ERR %x\v\" » arstst » erstl > ? 
u., u„.'arror ~- E10> 
return? 

X 

i f <ar»t3t.,©rstl & AILLCMD) < 

printfC'AR ILLEGAL COMMAND %x\n" y 3rstst . srstl ) ? 

Ui.u._'srror ■-■ EIO? 

returns 

> 

i f <BrBtBt„ers.tl & ANOE)ATA> •£ 

printfC'AR NO DATA F"OUND %>i\n" y arstat „ erstl ) J 

u « u ... e r I" o r ■•■ E 1 ? 

return? 



if<3rst.st.BrBt0 & ANOTIN) •£ 

pr i ntf < "No tspe i n Arch i ve dr t vi?An" ) ? 
u^u^error =-•• ENXIO? 
vet urn? 

y 



